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LIBACP 16- 
LIBACR. 1b-se 
: MODULE Libacp (IDENT = ‘v04-000') = 
BEGIN 


' 
RRR RARER RAE EEE ER AAA AEETE REHEAT AEA HEAR E EAA AAAAAAAAAAARERE ATES 


iw COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 ORDANCE WITH T T SUCH aint on Mb, 


foleloleloleloleala) 
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* 

® 

® 

® 

® 

® 

® 

® 

. N * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
! * 
is THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE  * 
® 

& 

® 

® 

® 

* 

* 

* 


E 
} SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 


ie DIGITAL ASSUMES NO RESPONS 
iw SOFTWARE ON EQUIPMENT WHIC 


'@ 
Lee REAR A RRR 
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IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: File system utility routines 


ABSTRACT: 


This module contains routines to manipulate the 
information in file headers. 


i 
i 
i 
1 
i 
ENVIRONMENT : 
VAX/VMS operating system. unprivileged user mode, 
AUTHOR: Tim Halvorsen, Oct 1979 

Modified by: 

v03-003 TSKO001 Tamar Krichevsky 29-Jun-1984 
i 

i 

i 

' 

i 

i 

1 

i 

i 

: 


SHH FAWN WAUIUA AWAD PINININPONIPININID 2 eso 


ee ee ee eee ee le le lelololelolololelolololololeolo) 


In LIBSCHECK_DIR use resultant string descriptor as the 
device name descriptor for the SASSIGN system service, 
instead of the expanded name string descriptor. 


V03-00< ACG0349 Andrew C. Goldstein 5-Aug-1983 18:40 
Fix descriptor initialization in LIBSSET_ERASE 


v03-001 ACG0331 Andrew C. Goldstein 18-Apr-1983 17:28 
Convert LIBSSET_ERASE to set erase bit in file header 


v02-014 MLJ0066 Martin L. Jack, 31-Dec-1981 9:51 
Split most routines out into separate modules. Correct 
errors in LIBSSET_ERASE. 
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LIBACP 16-Sep-1984 02:21:5 AX-11 Bliss-32 V Page 2 L 
Von 600 13-808- 1382 96:33:28 VMSLIB.SRC (TBACP B35 . (1) v0 
3 1! $ 
3 $3 38 17 v02-013 $HZ0001 Nahe en H. Zalewski, 11-Dec-1981 16:53 ; 
; F ¢' 1! Fixed LIBSFID 10. NAME so that it does a $GETDVI for LOGVOLNAM. 3 
;. & 1 3! Ales added code fo ‘opere @ question mark into directory : 
: 66 86 ! structure if the backlinks teminated other than at MFD. : 
: 64 O64 1 i vO12  GRR2012 Greg Robert 16-Nov-1981 : 
; 65 1! Return SS$_NONLOCAL when node specified in create ; 
: 66 bee : directory Or set protection operations. : 
: 68 068 1 | vo11 TMHOO! 1 Tim Halvorsen 20-Aug-1981 ; 
: 4 534 : Fix missing colon in resultant string. from LIBSFID_TO_NAME. : 
: 71 071 1! v02-010 MLv0028 Martin L. Jack, 8-Jul-1981 19:05 : 
§ Lf Ore 1! Extend conperteqne on FIDSW _NUM to include FID$B8_NMX. 3 
; f 3? ' he up illegal up-level réference to NULLPARARETER: : 
or 0078 1 i v00O9 — GRR2009 Greg Robert 15-Jun-1981 : 
; 6 B76 1! Utilized extended name block features to parse . 
ee 0077 1! Toous name and to prevent callin oir system 3 
: £8 Bere ! service with device name loneer ¢ han 63 characters. : 
: 80 0080 1 vOO8 § TMHO00S Tim Halvorsen 12-Mar-1981 : 
3 3 081 1! Accept parameters to FID_TO_NAME as descriptors : 
: 8¢ oes : rather than vectors. : 
>: B84 0084 1! v007 —«- TMHO007 Tim Halvorsen 27-Feb-1981 : 
Ye 0085 1! In FID_TO_NAME, if RVN of -~ igh nk is zero, ; 
; a6 1! use RVA of file itself (RV is shorthand 3 
; 7 087 1! for ‘same volume'’). Reference RTL routines F 
; ; st } with general addressing mode. : 
: 90 0090 1! v02=006 ACG0184 Andrew C. Goldstein, 14-Jan-1981 11:01 ; 
$ 4! sad : Add LIBSSET_ERASE, temporary implementation : 
: 3 38 1 vo0o5 KRMO0004 arl Malik 14-Jan-1981 ; 
; 94 96 1! Modified LIBSCHECK DIR to ) recognize network : 
3s 69S 095 : directory filespecs. : 
: 39 097 1: v004 — TMHO004 Tim Halvorsen 05-Jan-1981 : 
; «98 98 1! Fix LIBSFID_TO NAME to work even though the backlinks 3 
3 190 099 : may point to an unknown file. : 
: 101 19} 1/ 003 MH0003 Tim Halvorsen 17-Mar-1980 

3 108 : ¢ ! : Maa LIBSFID_TO_NAME routine. 

: 1 1 1 002 TMHO002 Tim Halvorsen 10-Mar-1980 

3: 105 105 1! Drop delete access for all access modes when propaget ing 

3 198 1 1! protection from parent (because me has standard f 

s 10 1 1! rotection on inited volume includi ng delete access, but 

3 198 : 3 : : S$ protected from deletion by special check in ACP). 

: 110 110 1! 001 TMHOO01 Tim Halvorsen 8-Jan-1980 

s 999 +) eG Support UIC forpet creation of directories. Rearrange 

: ig Ng 1! code so that iL begat eageneee name atring won't leave 

, TY tt ie s the channel assigned. Use protecti os of parent directory 

: 61146 1144 1! rather than process default protection on created directory. 


1 
1 
1 
1 
1 
1 
1 


! 
Include files 


LIBRARY ‘SYS$LIBRARY:LIB.L32'; 


ISoseo-t964 09:21:53 


! VMS system definitions 
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! 
Table of contents 
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v0vo 


FORWARD . UT INE 


b$check_dir, ' Check if directory file 
Lib$set_erase, ! Mark file for erase-on-delete 
setup_fib; ! Common FIB initialization routine 


; Define BBLOCK = BLOCKL, BYTE} 


DEAN OOONOUE Ww 


STRUCTURE 
BBLOCK C ay" S, E; NJ = 


(BBLOCK+0)<P,S,E>; 
! 
Define various literal values 


LITERAL Ks 
true = 1, ' Boolean true 
false = 0; ' Boolean false 


External routines 


EXTERNAL ROUTINE 
Lib$get_vm: ADDRESSING MODE (GENERAL) ! Virtual memory allocation 
Lib$free_vm: ADDRESSING_MODE (GENERALS; ! Free virtual memory 


SFAB_DEV = macro to access FABSL_DEV bits of FAB block. 


PUPPIES EE 


DOP APARAAO 


PAAR AIS EE BE AAA AAA AAA APPONIPONINND 


o 


CD ee ee ee we we wwe we www ww) www ola ala olan al alow lolol ololololeololelelealelelelalalolelel oleae allele ola) 


vw), 
dev$v_',dev_bit)),1,0%; 
' 

: DESCRIPTOR = define descriptor of static string 


R 
Sener lptor sete ing) 
UPLIT(ZCHARCOUNT(string),UPLIT BYTE (string))%; 
1 
Define macros to check status 


cee ee a ed ed ed dd dd Wd dd od Sd Sd td 
me ee med a a = = od = tt 


SIN NIOOO 


MACRO 
check_io = 


Be Se Se Se Be Se Se Se Se Se Se Ge Be Se Ge Ge Se Ge Ge Ge Ge Fe Fe Se Se Be Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se Se Se Se Sete See 
eee ee ee me em me ee ee ed ad od od od = = = = wd td = = 
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LIBACP 18-se -1984 02:21:5 AX-11 Bliss-32 V4.0-74 Pa 5 
ioe b00 Veagee TSBs 9GiSb:28 | Ms eeske si Peate o3509 9 025 
ee 4 01 1 BEGIN 
> % 4 01 1 i status ! If submitted ok, 
=. 4 01 1 HEN 
; 1 . ; : status = .iosb (0); ! then pick up I/0 status 
; 185 4 01 1 F NOT .status ' If error detected, 
= s 40185 1 HEN 
, ¥ 4 01 1 orsin 
eS mM 01 1 DASSGN (CHAN = .channel); ! Deassign channel 
; : : : } RETURN .status; ! and report error 
: 191 190 1 ENDS, - 
; 13¢ 1 1 
s; 19 4 01 § 1 perform (command) = 
: 194 ™ 1? 1 N 
: 6195 m0194 #1 LOCAL status; 
3 138 a0195 1 status = command; 
s 9 4 01 1 IF NOT .status 
; 198 m0197 1 THEN 
; 199 m 0198 1 RETURN .status; 
: 200 199 1 END2; 


iio 


> a ss 4 
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1e=3ep-1986 19:37:08 
GLOBAL ROUTINE LibScheck dir (fab_block) = 


: Functional description 


AX=11 Blisg-32 V4.0-74 
VMSLIB.SRCILIBACP.B32; 


This routine Geterain s whether the file currently open 
by the specified FAB is a directory file or not. 


! Input parameters 
fab_block - FAB associated with the opened file. 


The FAB is assumed to have an associated NAM block 
containing the FID of the file and a result name string. 


Routine value 
- The file is a directory 


TRUE 
ool badirectory - The file is not a directory 
status - Error was detected, assume not a directory 


MAP 
fab_block: REF BBLOCK; ! Address the input fab 


BIND 
nam_block = .fab_block Cfab$l_nam]: BBLOCK; 

LOCAL 
fib: Sol Cee) [108c_ecedatel. ! File Identification Block 
fib_desc: BBLOCK(8) ! FIB descriptor 
atr: BLOCKV CTORC4.8.BYTEI, ' Attribute control block 
filatr: BBLOCKLatr$s_recattr ! File attributes 


a Ee 
header: BBLOCKCatr$s_header] 
VOLATI 


dev_desc: BBLOCK 5, 


File header block 
Device descr tpyer for ASSIGN 


' 
channel: WORD ' Channel to device 
josb: VECTORE4 WORD], i 1/0 status block 
status; ' Holds RMS status codes 


1 
i Check the file type and version. A valid directory must 
; be named .DIR;1 or else it is invalid. 


IF CHSFIND SUB(.nam block Cnam$b_rsl], .nam block Cnam$\_rsal, 
— 6,0PLIT('.DIR;1')) EQL ! IF not .DIR 
RETURN ss$_badirectory; ! then not a valid directory 
i If this is a network directory 7 then do not attempt t 

u 


! assign a channel for Q10 operations - just return the apprenr iste 
; return value. 


t 


vuvv 
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is (. fab_block(S$fab_dev(net)]) ! If this is a network operation 
"BEGIN 
IF 3° fab_block(fab$b_rat ; gat L foyse. blk !and there is no carriage control 
on (.fab_blocklfab$b_rat 
as RETURN true ! It's a valid network directory 
am — ss$_badirectory; ! It's not a valid network directory 


Assign a ghonne} to the device for Q10 operations. If an error 
occurs, then exit without success. 


dev_desc ([dsc$w_length] = .nam_block Cnam$b_rss); 
dev_desc [dsc$a_pointer] = .nam_block Cnam$T_ rsal; 


perform(SASSIGN( DEVNAM = dev_desc, ! Assign channel to device 
CHAN = channel)); 


' 
: Call the ACP to read the file header attributes with a single Q10. 


atr ,atr$u_type atr$c_recattr; ! Request file attributes 
= sates size etrss. grecettr: 
atr 


atrsc " header: ! Request file header block 
atr 1satrge- size atr$s_header; 

atr }-3tss st, ogg header; 

atr 2 = 0; ! Trailing zero longword 


fib_desc fdsc$w. Length] = *ihse _accdata; 


~ 
ee 
7 
7 
sad 
fc? 
ay 
a 
a 
oe) 
nnannnn 


fib_desc Cdsc$a_pointer) = fib;~ 
fib Cfib$Sl_acctl) = 0; Allow ponders and writers 
fib CfibSw_fid_num] = .nam_block (nam$w_ Hae num 
fib Cfib$Sw_fid-seq) = .nam_block (nam$w_fid_ =seal 
fib Cfib$Swofid-rvn] = .nam=block Cnam$w_fid_rvn 
status = $0]0W( — = .chann ! Open and read file header 
UNC = 10S ances, 
1088 = osb, ! Address of I/0 status block 
Pl = fib. yoese. ' Descriptor of FIB bloc 
PS = atr); ! Address of attribute Stock 
check_io; ! Check 1/0 status 


! Deassign the channel used to access the device 


perform(SDASSGN( CHAN = .channel)); ! Deassign the channel 


' 
i Check the file characteristics to determine if this file is 


rb-se0-1966 08:21:52 yAKctT BLing-42 yé.0.749 Page 8 


Fs 
s° 


; } HH really a directory file. 
i if gheeder Cfh2$b_struclev) EQL 2 ! If ODS-2 format, 
; 1 BEGIN 
: 5 if NOT .header Cfh2$v_directory) ! DIRECTORY bit must be on 
; | § RETURN ss$_badirectory; ! If not, exit not a directory 
? 3 IF” header Cfh2$b_struclev) EQ. 1 ! If ODS-1 format, 
; 3 TF titate Cfat$b_rtype] NEQ fat$c_fixed ! Must be fixed records 
: 1 -filatr fatso” rattrib] NEQ°0 ! & no carriage control 
; : RETURN ss$_badirectory; ! If not, exit not a directory 
: 5 : eve Le 
: : RETURN ss$_badirectory; ! If not ODS-1 or 2, bad directory 
: 8 $ RETURN true; ! Return file is a directory file 
; 0 0338 END; 
-TITLE 


LIBACP 
IDENT \V04-000\ 
-PSECT SPLITS,NOWRT.NOEXE,2 
00 00 31 38 52 49 44 2E€ 00000 P.AAA: .ASCII \.DIR;1\<0><0> : 
-EXTRN LIBSGET_VM, LIBSF PREE VM 
~EXTRN SYSSASSTGN, SYS$Q10W 
-EXTRN SYSSDASSGN 


-PSECT SCODES,NOWRT,2 


007¢ .ENTRY LIBSCHECK_DIR, Save R2,R3.R4,R5,R6 0200 
6 000000006 00 9% MOVAB SYSS$DASSGR, R6 
. FD CE MOVAB =616(SP), § 
4 At D MOVL FAB LBLOCK, R 0228 
8 A VL OCR4), RS 
AS A MOVZBL (R5), RO 4 


R 
MATCHC #6, P.AAA, RO, a4(R5) 


0261 


04 85 50 0000" CF 6 MATCHC 6 
MOVL #6, R 
SUBL2 #6. R 
BNEQ 
1 BBC e . 5(R4), 5$ 57 
tre , $525 


CMPB 

BEQL 

TSTB (R4) 
EQ 


LUPE ifoseo-t9pe 09:31:52 yanetT BLisg- 


0083 31 0003F 4$: BRW 1$ 
o¢ aE 02 A ¢ : MOVZBW (RS), DEV_DESC 
A A mov (R5), DEVIDESC+4 
7E 7 C CL -(SP) 
rr a 
000000006 F 4 CALLS of SyStassicn 
0 € r BLBC status 8 
CC AD 00060020 &F p Hi MOVL #262176, ATR 
DO. |= oAD AC AD : MOVAB FILATR ATR#4 
D4 AD O00A0200 BF p MOVL #655872, ATR+ 
ae ae be OAD Ok we cece 
EC AD OA 80 00078 Vw #10, FIB_DESC 
FO AD F4 AD é 7F VAB FIB, FISDESC+4 
F4 AD OD CLRL = séF:1B 
FB OAD 34 AS DO 7 VL 36(R5), FIB+4 
FC OAD 8 as B0 MOV)  40(R5). FIB+8 
c OB oF 9 SteiaB ATR 
7E 7C 36 CLRQ = =( SP) 
7E D4 0009 CLRL = = (SP) 
EC AD 9F OO09A PUSHAB FIB_DESC 
7E 7C 00090 CLRQ = =(SP) 
24 AE OF O009F PUSHAB 1088 
32 DD O00A2 PUSHL #50 
7E 28 AE 3C O00A4 MOVZWL CHANNEL, (SP) 
7E D4 OO0AB CLAL (sp) 
000000006 00 F AA CALLS #12, SYS$QI0OW 
0? p Oe BLBe er arias. oe 
2 04 Ar 087 MOVZ2WL I0SB, STATUS 
OA 52 £8 0008B LBS STATUS, 7$ 
E —E 3¢ BE 6$ MOVZWL CHANNEL, (SP) 
66 1 FS C CALLS #1, SYS$DASSGN 
0 2 i cs MOVE STATUS, RO 
7E c C 000C8 7$: MOVZWL CHANNEL, (SP) 
66 FS CB CALLS #1, SYS$DASSGN 
: 0 3 cE 8$: BLBC STATUS, 12$ 
2 1B AE 1 0000 CMPB = HEADER*7, #2 
: 1 D3 BNEQ 
19 49 AE 5 D BBS #5, HEADER+53, 11% 
11 ye BRB 1 
01 1B AE 91 OOODE 98: CMPB HEADER*7, rt 
OB 1 E BNEQ 10S 
01 AC AD ? EA CPB FILATR, #1 
AD AD 9 EA STB FILATR+1 
50 0828 «BF xe EF 108: MOV ZUL #2088, RO 
50 01 B0 Fe 11$:  MOVL #1, RO 
4 FB 12$: RET 


; Routine Size: 249 bytes, Routine Base: S$CODE$ + 0000 


oS Sy beh tbat 9 tr 


COOOCOCOCOCOOOoOoO 


voe~600 


ifs 


6 
ep-1 
ep-1 


be 19:87:28 


AX=1 
VMSL 


1 
I 


vuvuvv 


SQOOOCOOOOOSOOOCOOOOOOCOCOSSOSOCSCOSOOCOSCOCOCOCOCOC OOOO COCOOOOOOOOOOOOOOOO 


SSSSES ESOS DADA GAL LAE DE Ee Seat 


AAAI ANI 


> RP PRN RP. 


ben eer 4 FUN —CO@ 


Seses 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 


m 6 
1erSep-1986 $$:57:08 — EYmstlerseeSilbate 032; teed 


GLOBAL ROUTINE LibSset_erase (name_desc) = 


Functional description 
This routine sets the erase-on-delete bit in a file. 
Inputs: 

name_desc = Address of descriptor of directory file name 
Outputs: 

: success or failure status 


name_desc: REF BBLOCK; 


Address of name descriptor 


! File Identification Block 
' FIB descriptor 
: WORD ' Channel to device 
osb: VECTORE4,WORD), i 1/0 status block 
' Holds RMS status codes 
atr_list: po. ent ig. ! Attribute control List 
file_char: BBLOCK(4); ! File charactreistics longword 


G0. OF) 1 10ec_ontdeted, 
BBLOCK(8), 


' 
' Call the common setup routine to get the file ID of the file and 
: set up the FIB. Set up an attribute List to read the file characteristics. 


perform (setup_fib (.name_desc, fib, channel)); 


fib_desc Cdsc$w_length] = fib$Sc_extdata; ! Create FIB descriptor 
fib_desc Cdsc$a_pointer] = fib; 
i? desc [dsc$b dtype] 


7 = 8: 
b_desc ([dsc$b_classJ = 0; 
fib CfibSt_acctl] = fibSm_write; 


atr_list Catr$w_size) = atr$s_uchar; 
atr_list Catr$w_type] = asrscuchar; 
atr_list gtrél_egdr le_char; 
atr_list (8, 0,~32, 0; 


status = $01]0W (CHAN = .channel ! open the file for update 
FUNC = JO$_ACCESS OR IO$M_ACCESS, 

10SB = iosb, 

Pl = fib_desc 

PS = atr-list); 


check_io; ! Check 1/0 status 


= f 
jz 


iio 


AX-11 aT V4.0-74 
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; 399 

3 § 3 : ot | fhe erase bit in fhe file characteristics and deaccess the file, 
; ? i ; writing the characterictics longword back. 

: 40 4 ; 

; t8e r : file_char(fch$v_erase) = 1; 

; $08 P 04 : status = $Q1]0W (CHAN = .channel, 

; 40 P 04 FUNC = jos DEACCESS, 

3 $88 P 0405 jose = iosb, 

; rt 1 PS = atr_list); 

; 411 4 3 check_io; ! Check 1/0 status 

; “lg 4 

; (41 \9 ! 

> 4146 41 : Deassign the channel 

hp gee! 

; ‘i? 413 perform (SDASSGN (CHAN = .channel)); ! Deassign the channel 
: 419 416 RETURN .status; ' Return successful 

; $59 41 

: 421 418 END; 


90000 ENTRY LIBSSET_ERASE, Save R2,R3,R4,R5 F 
55 900000006 99 3 9008 OVAB  SYS$DASSGN, R5 ; 
54 000000006 — 000 MOVAB Sy$a10w, R4 ; 
5E BC AE 9E 00010 VAB  =68(SP), SP : 

SE DD 00014 PUSHL SP ; 

28 AE 9F 00 1 PUSHAB FIB ; 

4 AC OD 09 1 PUSHL NAME_DESC : 

0000v CF 9 Fe D001C CALLS #3, SETUP_FIB : 
01 09 1 BLBS STATUS, 18 ; 

4 00024 RET ; 

20 AE 24 ar . 00025 1$: MOVAB IB, FIB_DESC+4 ; 
1C AE ? 002A MOVL #32. FIBDESC : 

4 AE 9100 F MOVZWL #256, FIG ; 

8 AE 00030004 8F MOVL #196612, ATR_LIST ; 

OC AE 4 AE t 003¢ MOVAB FILE CHAR, ATR_LIST+4 : 
10 AE 04 00041 CLRL = ATR Cist+é : 

o & oF rr sets Alt LIST ; 

7E 7C m3 CLRO ASP) ; 

7E 04 00048 CLRL = = (SP) ; 

30 AE 9F 0004 PUSHAB F1B_DESC : 

7E 7C CLRQ = =( SP) : 

4 AE OF SHAB 1088 : 

ze ; BF OA MOVZBL #114, -(SP) ; 

5 2 AS C MOVZWL C » R3 : 

3 DD D PUSHL R3 : 

E D F CLRL 5(sP) ; 

64 O¢ F 6} CALLS #12, SYS$Q10W : 

2 D VL —s RO, STATUS : 
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ROUTINE setup_fib (name_desc, fib, channel) = 


1 
Functional description 


This routine parses the Spee tt tee file name, fills in the fib 
with the file ID, and assigns a channel to the device. 


Inputs: 
name_desc = Address of descriptor of directory file name 


fib = address of fib to be filled in 
channel = address of word to return channel number 


Value: 
success or failure status code 


i 
i 
i 
i 
i 
i 
i 
i 
i 
Outputs: 
i 
i 
i 
i 
i 
i] 
i 
i 


BEGIN 
MAP 
name_desc: REF BBLOCK, ! Address of name descriptor 
fib: REF BBLOCK; ! File Identification Block 
LOCAL 
fab: BBLOCK Cfab$c_bln], ! FAB to m4 directory file 
nam: BBLOCK Lnam$c_bin], ! NAM to obtain DID, etc. 
expbuf: VECTOR Cnam$c_maxrss,BYTE], 
desc: VECTOR (2), : Descriptor 
status; ' Holds RMS status codes 
' 
Parse the file specification with RMS to obtain the 
: expanded name ofr ing. S$ should return DNF but all 
} that is needed is the expanded string. 
SFAB_INIT (FAB = fab, ! Initialize FAB block 
NAM = nam 


FNA = .name_desc [dsc$a_pointer], 
FNS = .mame_desc (Cdsc$w_length]); 


SNAM_INIT (NAM = nam, ! Initialize NAM block 
ESA = expbuf, 
ESS = nam$c_maxrss); 


status = SPARSE (FAB = fab); ! Parse the input string 
IF NOT .status ! If an unexpected error, 
THEN 


RETURN .status; ' exit with status 
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If this is a network operation then return a ‘‘non-local 
device’ error to the caller. 


nam Cnam$b_node] NEQ 0 
Hien RETURN ss$_nonlocal; 


IF _ .nam Cnam$v_wildcard] 
RETURN ss$_nosuchfile; 
status = SSEARCH (FAB = fab); 

IF NOT .status 
RETURN .status; 


If a node was specified 
then exit with error 


If wildcards specified, 
then return no such file 
Get FID and DID fields 
If not found or error, 


then exit with status 


Assign a channel to the device ACP 


desc ‘ys -nam Cnam$b_dev); ' Fetch the device name size 
desc -nam Cnam$\_devJ; !' and location from the expanded name 
perform (SASSIGN eee S desc ! Assign channel to ACP 

CHAN = "ehennet ti 


] 
Setup parameters to be sent to the ACP 


CHSFILL(O, fib$Sc_extdata,. fib); ! Zero the FIB first 

fib CfibSw_fid_num) = .nam ([nam$w_fid_ _ ! Copy FID 

fib Cfib$w_fid- =sea} = -nam (nam$w_fid_se 

fib CfibSw_fidorvn -nam Cnam$w_fid_ a 

RETURN true; ' Return successful 
1 END; 


-EXTRN SYSSPARSE, SYSSSEARCH 


007C 00000 SETUP_F IB: 
- WORD SPy8 86 Re. a, R4,R5,R6 


SE FE48 E 000 MOV §p 
00 6E 00 ¢ movcsS #0, (SP #0, #80, SRMS_PTR 
AD 5003 F 1 MOVW #304 3, SRMS_PTR 
D ’ 1 MOVB RMS Finest 
1A MOVB * $RMS"PTR+ 
CD I MOV Nan SRMS_PTR#40 
AC D 2 MOVL NAME bese: RO 


SS ee | 


LIBACP 16-56 Sep-1 :5 AX=11 Bliss-32 V4.0-7 P 
raat 1 et 7 ¢: $}: 28 VMSLIB.SRCILI ACP: B35; — (38 
a ee Cary | 
0060 8F 00 6E ne 69 C i MOVCS #0, (SP), FO, ” SRMS_PTR + 0469 
FFSO 86 CD 600 i 0 MOVW 424578 SRS, PAR : 
FFSA CD 1 BE 0004 MNEGB SRMS P : 
FFSC 3 CD 0 AE E 4 MOVAB. exbBUF. Shas. teaet2 San 
G F CALLS 4 SYSSPARSE : 
000000006 00 1 : 
7 0 § BLBC STATUS, 3$ + 0473 
ag AD A STB > 0482 
50 O8FO BF i¢ as? ROVEUL 15288, RO + 0483 
85 AD £9 00065 1$: BLBC  NAM+53, 2$ + 0485 
98 0910 BF O88 MOVZWL #2320, ab + 0487 
BO AD 9F 0 of 2$: PUSHAB FAB + 0489 
000000006 00 1 Fg ; CALLS pr SUSSSEARCH : 
4 0 . 7 BLBC 4F + 0491 
6E 89 AD 9A 0007 MOVZBL NAM+57. DESC > 0499 
04 AE 94 AD v0 08 movi NAM®68, DESC +4 : 9500 
BE AE OF OO0BA PUSHAB CHANNEL ; 
000000006 00 4 FB 008D CALLS #4, SYSSASSIGN : 
46 08 at 0 90097 Sa fe we : 0509 
20 00 6E 00 2c 0098 MOVCS #0, (SP), #0, #32, (R6) ; 
04 Ab FF74 CD DO OO0A1 MOVL NAM#+36, 4(R6) : 0511 
08 A6 FF78 CD BO O0OA7 MOVW  NAM+40. 8(R6) : 0513 
” Oe booed 38 | als RO" : 831? 


; Routine Size: 177 bytes, Routine Base: SCODES + O1A5 


i 
v0e~600 1erSep- 1986 18:87:28 — HimsLieesneSi teate-03e; ae 


35 0819 0 ELUDON 


PSECT SUMMARY 


; Name Bytes Attributes 
: SPLITS NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, tokio Lrg both f 
; SCODES 598 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 File Total. ioaded Percent Mapped 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 103 0 1000 00:01.8 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:LIBACP/OBJ=O0BJ$:LIBACP MSRC$:LIBACP/UPDATE=(ENH$:LIBACP) 

Size: 598 code : 8 data bytes 

un Time: pO: 
Elapsed Time: 0:35.9 
Lines/CPU Min: 1874 


Lexenes/CPU-Rin: 28439 
ears Used: 142 pages 
Compilation Complete 
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